home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 1 / The Arsenal Files (Arsenal Computer).ISO / os2_app / chkey.cmd < prev    next >
Encoding:
Text File  |  1994-01-03  |  424 b   |  19 lines
  1. /*   CHKEY         */
  2.  
  3. /*----------------------------------------------------------
  4. RESULT = CHKEY(timeout_secs)
  5. IF RESULT = 0 THEN SIGNAL TIMEOUT
  6.               ELSE INPUT = LINEIN()
  7. -----------------------------------------------------------*/
  8. ARG sec
  9. IF sec = '' THEN sec = 10
  10.  
  11. START_TIME = time('e')
  12.  
  13. DO UNTIL LINES() = 1 | TIME('E') > sec
  14.    END
  15.  
  16. IF LINES() = 1 THEN EXIT 1
  17.                ELSE EXIT 0
  18.  
  19.